(defun extenderamb (lp la amb)
     (if (null lp) amb
         (append (list (car lp) (car la)) (extenderamb (cdr lp) (cdr la) amb))
     )
)

(defun buscar (nom amb)
     (if (null amb) nom
		(if (eq (car amb) nom) (cadr amb)
         	(buscar nom (cddr amb))
		)
	 )
)
